   1 .
   2 .
   3 .
   4 .
   5 . WHEEL OF FORTUNE
   6 . BY L.L.CAMNITZ
   7 .
   8 .
   9 NT=1
  10 clear 
  20 CY=20
  25 CX=-50
  30 print "WHEEL OF FORTUNE"
  40 CX=-40;CY=0
  50 print "( PRESS '0' )"
  65 if KP=0goto 100
 100 clear 
1000 &(9)=90
1010 P=109
1020 N=0
1030 &(2)=N;&(3)=N
1040 &(0)=P;&(1)=P
1050 BC=143
1060 FC=128
1070 B=2
1100 O=0
1110 P=1
1120 Q=2
1130 R=3
1140 S=4
1150 T=5
1160 U=6
1170 V=7
1200 G=0
1210 H=0
1220 I=0
1230 J=0
1240 K=0
1250 L=0
1260 M=0
1270 N=0
2000 CX=30
2010 CY=31
2020 print "#1",#5,G
2030 CX=30;print "#2",#5,H
2040 CX=30;print "#3",#5,I
2050 CX=30;print "#4",#5,J
2060 CX=30;print "#5",#5,K
2070 CX=30;print "#6",#5,L
2080 CX=30;print "#7",#5,M
2090 CX=30;print "#8",#5,N
2100 if G>40goto 7500
2110 if H>40goto 7500
2120 if I>40goto 7500
2130 if J>40goto 7500
2140 if K>40goto 7500
2150 if L>40goto 7500
2160 if M>40goto 7500
2170 if N>40goto 7500
2180 if B=1goto 7100
4000 box -30,0,20,20,1
4010 box -30,0,18,18,2
4100 box -30,31,24,24,1
4110 box -30,31,18,18,2
4200 box -55,24,20,20,1
4210 box -55,24,18,18,2
4300 box -63,0,20,20,1
4310 box -63,0,18,18,2
4400 box -55,-24,20,20,1
4410 box -55,-24,18,18,2
4500 box -30,-31,20,20,1
4510 box -30,-31,18,18,2
4600 box -5,-24,20,20,1
4610 box -5,-24,18,18,2
4700 box 3,0,20,20,1
4710 box 3,0,18,18,2
4800 box -5,24,20,20,1
4810 box -5,24,18,18,2
4820 gosub 5000
4830 goto 7100
4840 gosub 5000
4850 gosub 5000
4860 gosub 5000
4870 gosub 5000
4880 gosub 5000
4890 gosub 5000
4900 gosub 5000
4910 gosub 5000
4911 if B=2goto 6000
4912 if B=1gosub 7700
4915 if B=1gosub 7000
4920 if B=1goto 2000
4930 goto 6000
5000 CX=-30
5010 CY=31
5020 O=O+1
5030 print #0,O
5040 if O=8O=0
5200 CX=-55
5210 CY=24
5220 P=P+1
5230 print #0,P
5240 if P=8P=0
5300 CX=-63
5310 CY=0
5320 Q=Q+1
5330 print #0,Q
5340 if Q=8Q=0
5400 CX=-55
5410 CY=-24
5420 R=R+1
5430 print #0,R
5440 if R=8R=0
5500 CX=-30
5510 CY=-31
5520 S=S+1
5530 print #0,S
5540 if S=8S=0
5600 CX=-5
5610 CY=-24
5620 T=T+1
5630 print #0,T
5640 if T=8T=0
5700 CX=3
5710 CY=0
5720 U=U+1
5730 print #0,U
5740 if U=8U=0
5800 CX=-5
5810 CY=24
5820 V=V+1
5830 print #0,V
5840 if V=8V=0
5850 return 
6000 B=1
6010 A=rnd (8)
6020 if A=1goto 4830
6030 if A=2goto 4840
6040 if A=3goto 4850
6050 if A=4goto 4860
6060 if A=5goto 4870
6070 if A=6goto 4880
6080 if A=7goto 4890
6090 if A=8goto 4900
7000 C=O
7020 if C=1G=G+10
7025 CX=-50
7030 if C=2H=H+10
7040 if C=3I=I+10
7050 if C=4J=J+10
7060 if C=5K=K+10
7070 if C=6L=L+10
7080 if C=7M=M+10
7090 if C=0N=N+10
7095 return 
7100 B=2
7150 goto 4840
7500 CX=30
7510 CY=-35
7520 if O=0O=8
7525 NT=50
7530 print "#",#0,O," WINS"
7535 NT=1
7536 MU="6"
7540 clear 
7550 O=0
7560 goto 10
7700 CX=-30
7710 if O=0O=8
7720 CY=0
7730 print #0,O
7740 if O=8O=0
7750 return 
:return ;run 